home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #21 (1994-01-12)(Diesel)(DE)[WB].zip / Purity #21 (1994-01-12)(Diesel)(DE)[WB].adf / ModToPas / txt / TPSystem.def < prev    next >
Text File  |  1993-12-13  |  859b  |  41 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    TPSystem.def
  4.     :Contents.   Turbo Pascal Systemprozeduren
  5.     :Author.     Markus Uhlendahl
  6.     :Address.    Vorm Burgtor 16, D-4408 Dülmen
  7.     :Phone.      02594/81540
  8.     :Copyright.  Public Domain
  9.     :Language.   Modula-2
  10.     :Translator. M2Amiga AMSoft V3.3d
  11.  
  12. **********************************************************************)
  13. DEFINITION MODULE TPSystem;
  14.  
  15.  
  16. FROM SYSTEM IMPORT ADDRESS;
  17.  
  18.  
  19. PROCEDURE Delay (i : INTEGER);
  20.  
  21. PROCEDURE Dispose (p : ADDRESS);
  22.  
  23. PROCEDURE Hi (i : INTEGER) : INTEGER;
  24.  
  25. PROCEDURE keypressed () : BOOLEAN;
  26.  
  27. PROCEDURE Lo (i : INTEGER) : INTEGER;
  28.  
  29. PROCEDURE MemAvail () : INTEGER;
  30.  
  31. PROCEDURE New (VAR p : ADDRESS);
  32.  
  33. PROCEDURE Random () : REAL;
  34.  
  35. PROCEDURE Swap (i : INTEGER) : INTEGER;
  36.  
  37. PROCEDURE UpCase (c : CHAR) : CHAR;
  38.  
  39.  
  40. END TPSystem.
  41.